====================================
Smelt an Item
====================================

Sub Main(Player as long)
If HasObj(Player, 351) > 0 And HasObj(Player, 37) >= 10 And HasObj(Player, 22) >= 10 Then
	Takeobj(Player, 351, 1)
	TakeObj(Player, 37, 10)
	TakeObj(Player, 22, 10)
	Giveobj(Player, 916, 1)
	Playermessage(Player, "Enjoy your Inferno Hammer!", yellow)
Else
	Playermessage(Player, "You lack the required materials to smelt that!", yellow)
End If
End Sub